function binByte ( b : byte ) : string;
var
 cnt : byte;
 s   : string[8];
begin
 s := '';
 cnt := 128;
 repeat
  if b and cnt <> 0
  then s := s + '1'
  else s := s + '0';
  cnt := cnt div 2;
 until cnt = 0;
 binByte := s;
end;


function Hexbyte(b: byte) : string;
const
 hexChars: array [0..$F] of Char = '0123456789ABCDEF';
begin
 hexByte := (hexChars[b shr 4]+
             hexChars[b and $F]);
end;


var
 arr1, arr2 : array [0..127] of byte;
 b : byte;
 f : file;

begin
 assign    (f, paramStr(1));
 reset     (f, 1);
 blockread (f, arr1, sizeOf(arr1));
 close     (f);

 assign    (f, paramStr(2));
 reset     (f, 1);
 blockread (f, arr2, sizeOf(arr2));
 close     (f);

 for b := 0 to 127 do
  case b of
   $00..$0D, $2e, $2f : ;
   else if arr1[b] <> arr2[b] then begin
    writeLn('[1]  |',hexbyte(b),'|  ',hexbyte(arr1[b]),'  ',binbyte(arr1[b]));
    writeLn('[2]  |',hexbyte(b),'|  ',hexbyte(arr2[b]),'  ',binbyte(arr2[b]));
   end;
  end;
end.